home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / batch / dddbatch.zip / DEMO.BAT < prev    next >
DOS Batch File  |  1990-12-29  |  4KB  |  213 lines
  1. :start
  2.     echo off
  3.     cls
  4.     set day=Sunday
  5.     set gr_mode=40x25 16 gray text
  6.    set fgcolor=7
  7.     set bgcolor=0
  8.     echo Do you have a color screen (y/n)?
  9.     prtat 25 0
  10.     yes_no
  11.     if errorlevel 2 goto skip10
  12.     set fgcolor=15
  13.     set bgcolor=1
  14. :skip10
  15.     cls
  16.     clw 11 28 13 48 %fgcolor% %bgcolor%
  17.     dr_box 11 28 14 49 2
  18.     prtat 12 30 Printer 1 is on.
  19.     prtat 25 0
  20.     prt_on 1
  21.     if errorlevel 1 goto skip13
  22.         prtat 12 43 off.
  23. :skip13
  24.     if %fgcolor% == 7 goto skip14
  25.         set fgcolor=0
  26.         set bgcolor=2
  27. :skip14
  28.     prtat 23 0
  29.     pause
  30.     fcls2
  31.     clw 10 27 14 49 %fgcolor% %bgcolor%
  32.     dr_box 10 27 15 50 2
  33.     prtat 12 29 Today is 
  34.     day
  35.     if not errorlevel 7 goto skip20
  36.         set day=Saturday
  37.         goto skip25
  38. :skip20
  39.     if not errorlevel 6 goto skip21
  40.         set day=Friday
  41.         goto skip25
  42. :skip21
  43.     if not errorlevel 5 goto skip22
  44.         set day=Thursday
  45.         goto skip25
  46. :skip22
  47.     if not errorlevel 4 goto skip23
  48.         set day=Wednesday
  49.         goto skip25
  50. :skip23
  51.     if not errorlevel 3 goto skip24
  52.         set day=Tuesday
  53.         goto skip25
  54. :skip24
  55.     if not errorlevel 2 goto skip25
  56.         set day=Monday
  57. :skip25
  58.     prtat 12 38 %day%. 
  59.     prtat 23 0
  60.     pause
  61.     if %fgcolor% == 7 goto skip26
  62.         set fgcolor=15
  63.         set bgcolor=1
  64. :skip26
  65.     clw 13 32 15 58 %fgcolor% %bgcolor%
  66.     dr_box 13 32 16 59 1
  67.     is_today 12/25/1991
  68.     if not errorlevel 1 goto skip27
  69.         prtat 14 34 It is Christmas 1991.
  70.         goto mode_16
  71. :skip27
  72.         prtat 14 34 Not Christmas 1991 yet.
  73.  
  74. rem _HERCMONO - HGC
  75. :mode_20
  76.     prtat 23 0
  77.     pause
  78.     fcls2
  79.     clw 10 11 14 66 %fgcolor% %bgcolor%
  80.     dr_box 10 11 15 67 2
  81.     prtat 12 13 Graphic Mode Is :
  82.     mode_no
  83.     if not errorlevel 20 goto mode_19
  84.         set gr_mode=720x348 graphics in black and white
  85.         goto mode_res
  86.  
  87. rem MRES256COLOR - VGA
  88. :mode_19
  89.     if not errorlevel 19 goto mode_18
  90.         set gr_mode=320x200 graphics in 256 colors
  91.         goto mode_res
  92.  
  93. rem VRES16COLOR - VGA
  94. :mode_18
  95.     if not errorlevel 18 goto mode_17
  96.         set gr_mode=640x480 graphics in 16 colors
  97.         goto mode_res
  98.  
  99. rem VRES2COLOR - VGA
  100. :mode_17
  101.     if not errorlevel 17 goto mode_16
  102.         set gr_mode=640x480 graphics in b/w
  103.         goto mode_res
  104.  
  105. rem ERESCOLOR - EGA
  106. :mode_16
  107.     if not errorlevel 16 goto mode_15
  108.         set gr_mode=640x350 graphics in 4/16 colors
  109.         goto mode_res
  110.  
  111. rem ERESNOCOLOR - EGA
  112. :mode_15
  113.     if not errorlevel 15 goto mode_14
  114.         set gr_mode=640x350 graphics graphics in b/w
  115.         goto mode_res
  116.  
  117. rem HRES16COLOR - EGA
  118. :mode_14
  119.     if not errorlevel 14 goto mode_13
  120.         set gr_mode=640x200 graphics in 16 colors
  121.         goto mode_res
  122.  
  123. rem MRES16COLOR - EGA
  124. :mode_13
  125.     if not errorlevel 13 goto mode_10
  126.         set gr_mode=320x200 graphics in 16 colors
  127.         goto mode_res
  128. :mode_10
  129.     if not errorlevel 10 goto mode_9
  130.         set gr_mode=640x200 4 color graphics (PCjr.)
  131.         goto mode_res
  132. :mode_9
  133.     if not errorlevel 9 goto mode_8
  134.         set gr_mode=320x200 16 color graphics (PCjr.)
  135.         goto mode_res
  136. :mode_8
  137.     if not errorlevel 8 goto mode_7
  138.         set gr_mode=160x200 16 color graphics (PCjr.)
  139.         goto mode_res
  140.  
  141. rem TEXTMONO - Monochrome Adapter
  142. :mode_7
  143.     if not errorlevel 7 goto mode_6
  144.         set gr_mode=80x25 text in b/w
  145.         goto mode_res
  146.  
  147. rem HRESBW - CGA
  148. :mode_6
  149.     if not errorlevel 6 goto mode_5
  150.         set gr_mode=640x200 graphics in b/w
  151.         goto mode_res
  152.  
  153. rem MRESNOCOLOR - CGA
  154. :mode_5
  155.     if not errorlevel 5 goto mode_4
  156.         set gr_mode=320x200 graphics, 4 shades grey
  157.         goto mode_res
  158.  
  159. rem MRES4COLOR - CGA
  160. :mode_4
  161.     if not errorlevel 4 goto mode_3
  162.         set gr_mode=320x200 graphics, 4 color
  163.         goto mode_res
  164.  
  165. rem TEXTC80 - CGA
  166. :mode_3
  167.     if not errorlevel 3 goto mode_2
  168.         set gr_mode=80x25 text, 8/16 color
  169.         goto mode_res
  170.  
  171. rem TEXTBW80 - CGA
  172. :mode_2
  173.     if not errorlevel 2 goto mode_1
  174.         set gr_mode=80x25 text, 16 shades of gray
  175.         goto mode_res
  176.  
  177. rem TEXTC80 - CGA
  178. :mode_1
  179.     if not errorlevel 1 goto mode_0
  180.         set gr_mode=40x25 text, 16 or 8 colors
  181.         goto mode_res
  182.  
  183. :mode_0
  184.         set gr_mode=40x25 text, 16 shades of grey
  185.  
  186. :mode_res
  187.     prtat 12 31 %gr_mode%.
  188. :skip28
  189.     prtat 23 0
  190.     pause
  191.     fcls1
  192.     cls
  193.     clw 10 26 15 53 %fgcolor% %bgcolor%
  194.     dr_box 10 26 16 54 2
  195.     prtat 11 28 1.) Rerun demo.
  196.     prtat 12 28 2.) End demo.
  197.     prtat 14 28 [Please choose a number]
  198.     prtat 25 0
  199. :loop
  200.     0-9
  201.     if errorlevel 4 goto loop
  202.         if errorlevel 3 goto boot
  203.     if errorlevel 2 goto end
  204.     if errorlevel 1 goto start
  205.     goto loop
  206. :end
  207.     fcls2
  208.     set gr_mode=
  209.     set fgcolor=
  210.     set bgcolor=
  211.     set day=
  212.     prtat 0 0
  213.